function []=main(filename)
filename
Irgb=imread(filename);
[SkinIndexRow,SkinIndexCol]=skin_range(Irgb);

out=segmentation(Irgb,SkinIndexRow,SkinIndexCol);
race=colorfeaturegrouping(out);
%out=lighting_compensation(Irgb);
%out=segmentation(out,SkinIndexRow,SkinIndexCol);
cmatrix=find_cooccurencematrix(out);
race=cal_entropy(cmatrix,race);
race